home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / Forum / MichaelRoth / 3-3-99 / subs / xor.asm < prev   
Assembly Source File  |  1998-08-15  |  381b  |  18 lines
  1. xor_code
  2. ; A0 -> Quellpuffer
  3. ; A1 -> Schlüssel
  4. ; D0 -> Länge des Buffers
  5. ; D1 -> Länge des schlüssels:
  6.  
  7.          move.l    a1,a2                         ; Schlüsselstartadresse merken
  8.          sub1.w    #1,d1
  9. .loop1
  10.          eor.b     (a0)+,(a1)+
  11.          dbra      d1,.noloadkey
  12.          move.l    a2,a1
  13. .noloadkey
  14.          subq.l    #1,d0
  15.          bne       .loop1
  16.  
  17.          rts
  18.